COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	REQUIRE THE DECLARATIONS FROM BUFDEC
C00007 ENDMK
C⊗;
COMMENT REQUIRE THE DECLARATIONS FROM BUFDEC;
REQUIRE "BUFDEC.SAI" SOURCE!FILE;


COMMENT *****************  DECLARATIONS *****************;
! SOME MACROS TO REPLACE OLD PROCEDURE DECLARATIONS AND CALLS;

DEFINE SUBPIC(ROWST,ROWNUM,COLST,COLNUM,BUFNO)="CROP(BUFNO,ROWST,ROWST+ROWNUM-1,COLST,COLST+COLNUM-1)";



EXTERNAL SIMPLE INTEGER PROCEDURE RATIO(INTEGER BUF; REAL FACT);
EXTERNAL SIMPLE INTEGER PROCEDURE VRATIO(INTEGER BUF; REAL FACT);
EXTERNAL SIMPLE INTEGER PROCEDURE HRATIO(INTEGER BUF; REAL FACT);
EXTERNAL SIMPLE INTEGER PROCEDURE EXPPIC(INTEGER FACT,BUFF);
EXTERNAL SIMPLE INTEGER PROCEDURE AVGRED(INTEGER BUF,FACT);
EXTERNAL INTEGER PROCEDURE EXPRED(INTEGER BUF,FACT; REFERENCE INTEGER VARBUF);
EXTERNAL INTEGER PROCEDURE NORMAL(INTEGER BUF,NBYTSZ,MINB,MAXB);
EXTERNAL SIMPLE INTEGER PROCEDURE REVERSE(INTEGER BUF);
EXTERNAL SIMPLE INTEGER PROCEDURE HREVERSE(INTEGER BUF);
EXTERNAL SIMPLE INTEGER PROCEDURE VREVERSE(INTEGER VUF);
EXTERNAL SIMPLE INTEGER PROCEDURE COMPLI(INTEGER BUFNO);
EXTERNAL INTEGER PROCEDURE THRESH(INTEGER CURBUF,MASKBUF,UPTHR,LWTHR,BYTZ,SHRINK);
simple external integer procedure thrm(integer curbuf,maskbuf,val,maskin,series);
EXTERNAL PROCEDURE DISLPT(INTEGER BUF; REAL CONT; INTEGER BRITE; STRING DEV);
EXTERNAL PROCEDURE HEXLPT(INTEGER BUF);
EXTERNAL PROCEDURE RANGE(INTEGER BUFNO; REFERENCE INTEGER AMINB,AMAXB,MINB,MAXB,AVGB; REAL FRAC(.05); BOOLEAN MULTIRANGE(0));
EXTERNAL PROCEDURE DISARD(INTEGER BUF,NCOLMS,X1,X2,Y1,Y2,BC;REAL CF);
EXTERNAL PROCEDURE LPTDMP(BOOLEAN SWITCH; INTEGER BUF,X1,X2,Y1,Y2);
EXTERNAL SIMPLE INTEGER PROCEDURE SUBTR(INTEGER BUF1,BUF2);
EXTERNAL INTEGER SIMPLE PROCEDURE CROP(INTEGER BUF,STARTI,ENDI,STARTJ,ENDJ);
EXTERNAL INTEGER SIMPLE PROCEDURE CROPPL(INTEGER BUF,OBUF,SI,EI,SJ,EJ,PLACEI,PLACEJ);
EXTERNAL PROCEDURE HISTO(STRING DEV,FILENAME; 
                   INTEGER BUFNO; REFERENCE INTEGER EOF);
EXTERNAL INTEGER PROCEDURE SMOOTH(INTEGER BUFNO,IWIND,JWIND; REAL FACT; integer diver(0));
SIMPLE EXTERNAL PROCEDURE HISTATS(SAFE INTEGER ARRAY PIXELS;
		 REFERENCE REAL MEAN,STDEV;
		 REFERENCE INTEGER COUNT);
EXTERNAL PROCEDURE STATS(INTEGER INBUF;
		 REFERENCE REAL MEAN,STDEV;
		 REFERENCE INTEGER MIN,MAX,COUNT;
		 INTEGER MASKBUF);
external procedure nplot(integer curbuf, ACCUM(0), MASKBUF(-1));
external procedure graphedges(integer curbuf);


EXTERNAL PROCEDURE EXAM(INTEGER CURBUF);
EXTERNAL PROCEDURE WINDIS(INTEGER CURBUF);
SIMPLE EXTERNAL INTEGER PROCEDURE ICASEV(INTEGER INX);
SIMPLE EXTERNAL INTEGER PROCEDURE JCASEV(INTEGER INX);
SIMPLE EXTERNAL INTEGER PROCEDURE BDRPRE(REFERENCE INTEGER N; INTEGER I,J,IBUF,RWS,COLS; SAFE INTEGER ARRAY NEIGHBORS);
SIMPLE EXTERNAL PROCEDURE BDRPOST(REFERENCE INTEGER N,ST,TEMP;
	INTEGER I,J,IBUF,RWS,COLS; SAFE INTEGER ARRAY NEIGHBORS);
EXTERNAL integer PROCEDURE BORDER(INTEGER II,JJ,IBUF,OBUF; REFERENCE INTEGER IMIN,IMAX,JMIN,JMAX; integer value);
COMMENT ***************** END DECLARATIONS *****************;